home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ File Sharing Overlay 1.xpl < prev    next >
Text File  |  2003-07-24  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Explorer\Settings"
  5. "UIPATH 2"="Network\Explorer"
  6. "NAME"="Shared Resources Overlay"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Hand Icon over Shared Resources"
  9. "DESCRIPTION 1"="When you share a drive or a folder in Windows Explorer, a hand icon appears over the top of it, to indicate that it is shared. If, however, you do not want this hand icon to appear, clear the box above. To restore the icon, place a tick in the box."
  10. "VERSION"="1.10"
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COMMENT 1"="For more information, see http://registry.winguides.com/display.php/802/"
  15. "COMMENT 2"="Thanks to mark k [maquesman@hotmail.com] for the Win XP bug notice!"
  16.  
  17.  
  18.   sP="HKCR\Network\SharingHandler"
  19.   sV="HKCR\Network\SharingHandler\@"
  20. sBak="HKCR\Network\SharingHandler\XSET Backup"
  21.  
  22. sV1="msshrui.dll"
  23. sV2="ntshrui.dll"
  24. sValueToUse=""
  25.  
  26. SUB Plugin_Initialize
  27.  if RegPathExists(sP) then
  28.     s=RegReadValue(sV)
  29.     if len(s)>0 then
  30.        Call SetUIElement(1,true)
  31.     end if
  32.  
  33.     if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then 'any W 16bit crap
  34.        sValueToUse=sV1
  35.     else 'real OSes
  36.        sValueToUse=sV2
  37.     end if
  38.  
  39.  else
  40.     Call Disable()
  41.  end if
  42.  
  43.  
  44. END SUB
  45.  
  46. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  s=GetUIElement(1)
  48.  if s=true then
  49.     Call RegWriteValue(sV,sValueToUse,1)
  50.  else
  51.     if RegValueExists(sV)=true then
  52.        Call RegDeleteValue(sV)
  53.     end if
  54.  end if
  55. END SUB
  56.  
  57. SUB Plugin_Terminate
  58. END SUB
  59.